home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / shareware / cd-rom / atapi_pnp212 / install.deutsch < prev    next >
Text File  |  1996-05-03  |  18KB  |  650 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; *    -------   G E R M A N    SCRIPT    --------
  10. ; *
  11. ; ************************************************
  12.  
  13. ;/// Variabili
  14. ; ****************************
  15. ;       Variabili
  16. ; ****************************
  17. ;
  18. (set DemoVersion        1) ; Demo Version
  19. (set ProductName        "ATAPI PnP"  )  ; product name
  20. (set ProductBaseName    "Atapi PnP")                    ; product base name
  21. (set VersionNum         "2.12 ")                     ; product version number
  22.  
  23. (set OSVersion          (/ (getversion) 65536))
  24. (set PctDone            0)
  25.  
  26. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  27.  
  28. (makeassign "CDPLUSPLUS" "" (safe))
  29.  
  30. (set Disk1Name                  "CDPLUSPLUS:")
  31.  
  32. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  33.  
  34. ;///
  35.  
  36. ;/// Proc setPkgOPts
  37. (procedure setPkgOpts
  38. ;
  39. ; ****************************
  40. ; * Wich Parts
  41. ; ****************************
  42. ;
  43.   (
  44.         (set PkgOpts
  45.                 (askoptions
  46.                         (prompt
  47.                            "Suche aus was Du vom Package"
  48.                            (" %s installieren willst" ProductName)
  49.                         )
  50.                         (help
  51.                                 "Hier kannst Du aussuchen welche Teile (Modules) Du vom"
  52.                                 (" Package %s installieren willst.\n" ProductName)
  53.                                 "\n"
  54.                                 "*** Atapi Device Driver\n"
  55.                                 "Hiermit wird der wichtige Device-Treiber"
  56.                                 " (cd.device ) ins Verzeichnis Devs: kopiert (Fundamental)\n"
  57.                                 "\n"
  58.                                 "*** CDplusplusFS\n"
  59.                                 "Mit dieser Option wird das spezielle Filesystem"
  60.                                 " der CD++ ins Verzeichnis L: kopiert (ratbar).\n"
  61.                                 "\n"
  62.                                 "*** MAP-Mini Atapi Player\n"
  63.                                 "Mit dieser Option wird der Mini Player"
  64.                                 " für CD-Audio ins Verzeichnis Utilities kopiert.\n"
  65.                                 "\n"
  66.                                 "*** TRKDownLoad Track-Downloader\n"
  67.                                 "Mit dieser Option wird das Program TRKDownload"
  68.                                 " (fürs Download von CD-Spuren) in Utilities kopiert.\n"
  69.                                 "\n"
  70.                                 "*** PlayCDXL\n"
  71.                                 "Mit dieser Option wird PlayCDXL ( ein Program"
  72.                                 " fürs Abspielen von CDXL Files ) in Utilities kopiert.\n"
  73.                                 "\n"
  74.                                 "*** CD_IDE\n"
  75.                                 "Hiermit wird das preference Program in prefs copiert.\n"
  76.                                 " Damit kann mann einige Funktionen ändern.\n"
  77.                                 "\n"
  78.                                 @askoptions-help
  79.                         )
  80.                         (choices
  81.                                 ; bit position 0 -- todo & 1
  82.                                 ;
  83.                                 "Atapi Device Driver          (20 Kbytes)"
  84.  
  85.                                 ; bit position 1 -- todo & 2
  86.                                 ;
  87.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  88.  
  89.                                 ; bit position 2 -- todo & 4
  90.                                 ;
  91.                                 "MAP- Mini Atapi Player       (10 Kbytes)"
  92.  
  93.                                 ; bit position 3 -- todo & 8
  94.                                 ;
  95.                                 "TRKDownLoad- Track DownLoader(28 Kbytes)"
  96.  
  97.                                 ; bit position 4 -- todo & 16
  98.                                 ;
  99.                                 "PlayCDXL - Player Film CDXL  (23 Kbytes)"
  100.  
  101.                                 ; bit position 5 -- todo & 32
  102.                                 ;
  103.                                 "CD_IDE - Preference Program  (9 Kbytes)"
  104.  
  105.                         )
  106.                 )
  107.         )
  108.   )
  109. )
  110. ;///
  111.  
  112. ;/// Proc setDirPath
  113.  
  114. (procedure setDirPath
  115. ;
  116. ; ****************************
  117. ; * Ask the user for a directory name.
  118. ; ****************************
  119. ;
  120. ; these variables must be defined before calling this procedure:
  121. ;    DirPath
  122. ;
  123. ; this procedure returns the selected directory in DirPath
  124. ;
  125.    (
  126.  
  127.        (set DirPath
  128.                (askdir
  129.                        (prompt ("Wo soll das Package installiert werden\n (DEIN BOOT-Disk.   Normalerweise SYS: ) " )
  130.  
  131.                        )
  132.                        (help   "Atapi Plug'n Play wird in das ausgesuchte Verzeichnis"
  133.                                " Installiert.\n"
  134.                                "Wenn Du es in eine Diskette installieren möchtest"
  135.                                " dann stecke diese in den Drive und suche Sie aus"
  136.                                " der Liste aus.\n"
  137.                                "\n"
  138.                                @askdir-help
  139.                        )
  140.                        (disk)
  141.                        (default "SYS:")
  142.                )
  143.        )
  144.  
  145.  
  146.  
  147.    )
  148. )
  149. ;///
  150.  
  151. ;/// Proc AskFsIcon
  152. ;
  153. ;
  154. (procedure AskFsIcon
  155. ;
  156. ; This procedure ask of wich cd Icon you want to install with wich Name
  157. ; It requires initialization of variables:
  158. ;
  159. ; In "DefaultIcon" ci deve essere quella accesa di default
  160. ; 
  161. ; Ridà in "IconChoose" qual icona
  162. ; 0 nessuna - 1 AmiCDFilesystem
  163. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  164. ;
  165.   (
  166.     (set IconChoose
  167.      
  168.            (askchoice
  169.                 (prompt "Suche aus,für welches CD-Filesystem du ein Piktogram installieren möchtest")
  170.                 (help
  171.                         "Hier kannst du aussuchen für welches Dateinsystem"
  172.                         " Atapi Plug'n Play Installiert werden soll.\n"
  173.                         "Hast Du schon CDplusplusFS installiert dann suche am besten"
  174.                         " diese Möglichkeit aus.\n"
  175.                         "\n"
  176.                         "Sollte Dein CD-filesystem nicht in der Liste"
  177.                         " vorkommen dann suche -Keines- aus , und"
  178.                         " modifizier später die Tooltypes im"
  179.                         " Piktogram :\n"
  180.                         "Device wird\nDevice=cd.device\n"
  181.                         "und Unit wird\nUnit=0\n\n"
  182.                         @askchoice-help
  183.                 )
  184.                 (choices
  185.                         "-Keines"
  186.                         "-AmiCDFileSystem - by Nicola Salmoria"
  187.                         "-cdrom-handler   - by Frank Munkert"
  188.                         "-CDFileSystem    - by CBM Commodore"
  189.                         "-CDplusplusFS    - by CD++"
  190.                 )
  191.                 (default DefaultIcon)
  192.            )
  193.     )
  194.   )
  195. )
  196. ;///
  197.  
  198. ;/// Proc GetDevName
  199. ;
  200. ;  in DevName si ritrova il nome da usare per l'icona
  201. ;
  202.  
  203.  
  204. (procedure GetDevName
  205.    
  206.    (
  207.      (set DevName
  208.            (askstring
  209.                      (prompt "Schreibe hier den Namen für das installierte CD-Laufwerk ohne den Doppelpunkt\nz.B. CD0")
  210.                      (help
  211.                              "Der ausgesuchte Name wird der"
  212.                              "  Name des Devices\n"
  213.                              "Es ist ratbar keinen langen Namen"
  214.                              " auszusucheni\n"
  215.                              "\nAm besten CD0 oder CD1 usw."
  216.                              " weil viele Programe diesen"
  217.                              " Namen suchen\n"
  218.                      )
  219.                      (default "CD0")
  220.            )
  221.      )
  222.    )
  223. )
  224. ;///
  225.  
  226. ;/// Proc AskAutoMount
  227. ;
  228. ;
  229. (procedure AskAutoMount
  230. ;
  231. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  232. ; storage dosdrivers
  233. ;
  234.   (
  235.     (set AutoMount
  236.      
  237.            (askbool
  238.                 (prompt "Möchtest Du daß das Laufwerk bei jedem Computerstart"
  239.                         " automatisch angeschaltet wird (Mount) ,"
  240.                         " statt manuell per-Mauseklick ?"
  241.                 )
  242.                 (help
  243.                         "Wenn Du positiv antwortest wird das Piktogram"
  244.                         " des Devices in das Verzeichnis:\n"
  245.                         "Devs:Dosdrivers kopiert\n"
  246.                         "Bei jedem Start wird so auch automatisch das"
  247.                         " CD-Laufwerk gestarted\n\n"
  248.                         "Ansonsten wird es in: Storage:DosDrivers\n"
  249.                         " kopiert , und Du mußt per-Hand auf das"
  250.                         " Piktogram klicken um daß Laufwerk zu -Mounten-"
  251.                 )
  252.                 (choices
  253.                         "Automatisch beim Start"
  254.                         "Nein , manuell"
  255.                 )
  256.                 (default 1)
  257.            )
  258.     )
  259.   )
  260. )
  261. ;///
  262.  
  263.  
  264. ; *************************************************************************
  265. ; *                         ACTUAL START OF SCRIPT
  266. ; *
  267. ; * Ask all questions for the user now, do all of the work later.
  268. ; *************************************************************************
  269. ;
  270. ;/// MAIN SCRIPT
  271. (onerror
  272.  
  273. )
  274. ; ****************************
  275. ;  Check for OS Version
  276. ; ****************************
  277.  
  278. (if (= DemoVersion 1)
  279.     (message "\n" "\n"
  280.              "Achtung: Das hier ist eine DEMO Version\n"
  281.              "vom Program  Atapi PnP !\n"
  282.              "DU KANNST ES JEDEM KOMPLETT\n"
  283.              "WEITERGEBEN (ausser den Crakkers)" "\n"
  284.              "\n"
  285.              "Atapi Plug'n Play is Copyright by \n"
  286.              "Georg Campana & Marco Campinoti ©1994\n\n"
  287.              "E-Mail: georg@etruscan.li.it\n"
  288.  
  289.              (help "Wenn Du die registrierte Version erhalten möchtest dann lies das Handbuch oder rufe 0039/565/850621 an")
  290.     )
  291.     (message "\n" "\n"
  292.              "Achtung: Das hier ist eine Registrierte\n"
  293.              "Version Atapi PnP Package!\n"
  294.              "ES IST VERBOTEN IRGENDEINE DATEI\n"
  295.              "AUS DIESER DISKETTE ANDEREN\nZU LIEFERN" "\n"
  296.              "( Die Files haben Signs )\n"
  297.              "Atapi Plug'n Play is Copyright by \n"
  298.              "Georg Campana & Marco Campinoti ©1994\n\n"
  299.              "E-Mail: georg@etruscan.li.it\n"
  300.              (help "Um Freunde zu registrieren rufe : ++39/565/850621 an" )
  301.     )
  302.  
  303. )
  304.  
  305.  
  306. ; ****************************
  307. ; ****************************
  308. ;
  309.  
  310. (set DirPath "SYS:")
  311.  
  312. (setDirPath)
  313.  
  314. (set @default-dest DirPath)
  315.  
  316. (set devdest  (tackon @default-dest "Devs"))
  317. (set fsdest   (tackon @default-dest "L"))
  318. (set utildest (tackon @default-dest "Utilities"))
  319. (set prefdest (tackon @default-dest "Prefs"))
  320.  
  321.  
  322. (setPkgOpts)
  323.  
  324. (set DefaultIcon 0)
  325.  
  326. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  327.     (set DefaultIcon 1)
  328. )
  329.  
  330. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  331.     (set DefaultIcon 2)
  332. )
  333.  
  334. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  335.     (set DefaultIcon 3)
  336. )
  337.  
  338. (if (IN PkgOpts 1)
  339.     (set DefaultIcon 4)
  340. )
  341.  
  342. (AskFsIcon)
  343.  
  344. (select IconChoose
  345.    (set FsName 0)
  346.    (set FsName "AmiCDFS")
  347.    (set FsName "AmiCDHandler")
  348.    (set FsName "CbmCDFS")
  349.    (set FsName "CDplusplusFS")
  350. )
  351.  
  352.  
  353. (set AutoMount 1)
  354. (set DevName "CD0")
  355.  
  356. (if (> @user-level 1)
  357.  
  358.     (if (<> IconChoose 0)
  359.         (
  360.          (GetDevName)
  361.          (AskAutoMount)
  362.         )
  363.     )
  364. )
  365.  
  366. (if (= AutoMount 1)
  367.     (set Icondest  (tackon @default-dest "Devs"))
  368.     (set Icondest  (tackon @default-dest "Storage"))
  369. )
  370.  
  371.  
  372.  
  373.  
  374.  
  375. (if (IN PkgOpts 0)
  376.     (set MemSpace (+ MemSpace 20000))
  377. )
  378. (if (IN PkgOpts 1)
  379.     (set MemSpace (+ MemSpace 23000))
  380. )
  381. (if (IN PkgOpts 2)
  382.     (set MemSpace (+ MemSpace 10000))
  383. )
  384. (if (IN PkgOpts 3)
  385.     (set MemSpace (+ MemSpace 28000))
  386. )
  387. (if (IN PkgOpts 4)
  388.     (set MemSpace (+ MemSpace 23000))
  389. )
  390. (if (IN PkgOpts 5)
  391.     (set MemSpace (+ MemSpace  9000))
  392. )
  393. (if (<> IconChoose )
  394.     (set MemSpace (+ MemSpace 1000))
  395. )
  396.  
  397. (if (< (getdiskspace DirPath) MemSpace)
  398.     (if(> (getdiskspace DirPath) 0)
  399.        (
  400.           (abort "ACHTUNG: Der übrige Speicherplatz\n"
  401.                  ("auf der Platte %s\n" DirPath)
  402.                  ("beträgt nur um %ld bytes\n" (getdiskspace DirPath) )
  403.                  ("und es werden mindestens %ld benötigt\n" MemSpace)
  404.                  "\n"
  405.                  "Du kannst nochmal auf Install klicken\n"
  406.                  "und weniger Utilities aussuchen , oder\n"
  407.                  "unnötige Files von der Ziel-Platte\n"
  408.                  ("%s löschen\n" DirPath)
  409.           )
  410.        )
  411.     )
  412. )
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427. ; if bit position 0 is on  Installa device
  428. (if (IN PkgOpts 0)
  429.  
  430.      (
  431.  
  432.        (if (< (exists devdest (noreq)) 2)
  433.  
  434.            (makedir devdest
  435.               (prompt "Neues Verzeichnis -Devs-")
  436.               (infos)
  437.            )
  438.        )
  439.  
  440.        (if (< OSVersion 39)
  441.          (
  442.            (copylib
  443.                (prompt "Installiere Device Driver")
  444.                (source (tackon Disk1Name "devs/cd_a600.device"))
  445.                (newname "cd.device")
  446.                (dest  devdest)
  447.                (optional force)
  448.            )
  449.          )
  450.  
  451.          (
  452.            (copylib
  453.                (prompt "Installiere Device Driver")
  454.                (source (tackon Disk1Name "devs/cd.device"))
  455.                (dest devdest)
  456.                (optional force)
  457.            )
  458.          )
  459.        )
  460.      )
  461. )
  462.  
  463.  
  464. ; if bit position 1 is on Installa FileSystem
  465. (if (IN PkgOpts 1)
  466.      (
  467.  
  468.         
  469.         (if (< (exists fsdest (noreq)) 2)
  470.  
  471.             (makedir fsdest
  472.                (prompt "Neues Verzeichnis -L-")
  473.             )
  474.         )
  475.  
  476.  
  477.         (copylib
  478.             (prompt "Installiere FileSystem von CD++")
  479.             (source (tackon Disk1Name "l/CDplusplusFS"))
  480.             (dest fsdest)
  481.             (optional force)
  482.         )
  483.         
  484.  
  485.      )
  486. )
  487.  
  488. ; if bit position 2 is on Installa MAP
  489. (if (IN PkgOpts 2)
  490.      (
  491.  
  492.         
  493.         (if (< (exists utildest (noreq)) 2)
  494.  
  495.             (makedir utildest
  496.                (prompt "Neues Verzeichnis -Utilities-")
  497.                (infos)
  498.             )
  499.         )
  500.  
  501.  
  502.         (copyfiles
  503.             (prompt "Installiere Mini Atapi Player")
  504.             (source (tackon Disk1Name "utilities/MAP"))
  505.             (dest utildest)
  506.             (infos)
  507.             (optional force)
  508.         )
  509.         
  510.  
  511.      )
  512. )
  513.  
  514. ; if bit position 3 is on Installa TRKDownLoad
  515. (if (IN PkgOpts 3)
  516.      (
  517.  
  518.         
  519.         (if (< (exists utildest (noreq)) 2)
  520.  
  521.             (makedir utildest
  522.                (prompt "Neues Verzeichnis -Utilities-")
  523.                (infos)
  524.             )
  525.         )
  526.  
  527.  
  528.         (copyfiles
  529.             (prompt "Installiere TrkDownLoader")
  530.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  531.             (dest utildest)
  532.             (infos)
  533.             (optional force)
  534.         )
  535.         
  536.  
  537.      )
  538. )
  539.  
  540. ; if bit position 4 is on Installa PlayCDXL
  541. (if (<> DemoVersion 1)
  542.    (if (IN PkgOpts 4)
  543.         (
  544.  
  545.            
  546.            (if (< (exists utildest (noreq)) 2)
  547.  
  548.                (makedir utildest
  549.                   (prompt "Neues Verzeichnis -Utilities-")
  550.                   (infos)
  551.                )
  552.            )
  553.  
  554.  
  555.            (copyfiles
  556.                (prompt "Installiere PlayCDXL")
  557.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  558.                (dest utildest)
  559.                (infos)
  560.                (optional force)
  561.            )
  562.            
  563.  
  564.         )
  565.    )
  566. )
  567.  
  568. ; if bit position 5 is on  Installa CD_IDE
  569. (if (IN PkgOpts 5)
  570.      (
  571.  
  572.  
  573.         (if (< (exists prefdest (noreq)) 2)
  574.  
  575.             (makedir prefdest
  576.                (prompt "Neues Verzeichnis -Prefs-")
  577.                (infos)
  578.             )
  579.         )
  580.  
  581.  
  582.         (copyfiles
  583.             (prompt "Installiere CD_IDE")
  584.             (source (tackon Disk1Name "prefs/CD_IDE"))
  585.             (dest prefdest)
  586.             (infos)
  587.             (optional force)
  588.         )
  589.  
  590.  
  591.      )
  592. )
  593.  
  594.  
  595. (if (> IconChoose 0)
  596.     (
  597.         (if (< (exists Icondest (noreq)) 2)
  598.  
  599.             (makedir Icondest
  600.                (prompt "Neues Verzeichnis Devs oder Storage")
  601.                (infos)
  602.             )
  603.         )
  604.  
  605.         (set Icondest  (tackon Icondest "Dosdrivers"))
  606.          
  607.         (copyfiles
  608.             (prompt "Installiere Device-Piktogram")
  609.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  610.             (dest IconDest)
  611.             (newname  DevName)
  612.             (infos)
  613.             (optional force)
  614.         )
  615.  
  616.     
  617.         (if (= AutoMount 1)
  618.             ( message "\n" "\n"
  619.                    "Bei jedem starten des Computers wird\n"
  620.                    "das CD-Laufwerk automatisch ins System\n"
  621.                    "eingebindet !\n"
  622.                    "\n"
  623.                    "Du kannst dieses Verhalten jederzeit verändern\n"
  624.                    ("indem Du das Piktogram %s vom Verzeichnis" DevName)
  625.                    "Devs/Dosdrivers ins Verzeichnis Storage/Dosdrivers\n"
  626.                    "verschiebst\n"
  627.             )
  628.             ( message "\n" "\n"
  629.                    "Du kannst jederzeit das CD-ROM Laufwerk einbinden \n"
  630.                    ("indem du zweimal auf %s\n" DevName)
  631.                    "im Verzeichnis Storage/Dosdrivers klickst\n"
  632.                    "Soll es automatisch eigebunden werden, dann\n"
  633.                    "verschieb das Piktogram ins Verzeichnis Devs/Dosdrivers"
  634.             )
  635.         )
  636.     )
  637.     ( message "\n" "\n"
  638.            "Es wurde kein Piktogram für das\n"
  639.            "CD-ROM Laufwerk ausgesucht .\n"
  640.            "Du mußt es Dir deshalb selber bauen!\n"
  641.            "\n"
  642.            "Du kannst auch nocheinmal auf -Install- klicken\n"
  643.            "und Dir ein CD-Filesystem aussuchen\n"
  644.     )
  645.  
  646. )
  647.  
  648. (exit)
  649. ;///
  650.